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ABSTRACT: 


AUTO connect /disconnect mode for 
unattended operation is available with the 
Vancouver Area Digital Communications 
Groups terminal node controller (INC), the 


Tucson Amateur Packet Radio TNC, and 
"Synchronous Packet Radio Using The 
Software Approach «= AX.25 Protocol' 


software TNC. 


A logical expansion of the auto mode's 
capabilities would be to allow the station 
to which your station is connected in the 
AUTO mode to have full access to one or 
more of your disk drives. Minimum 
functions would include: LIST the disk 
directory, SEND a given disk file, SAVE a 
given file on disk, and send a set of 
operating instructions upon receiving the 
HELP command. 


It is obvious that a disk I/O system 
subroutine such as this in the AUTO mode, 
is indeed in essence a mini-sized version 
of a computer bulletin board system. By 
the term 'Possible Standard* in this 
paper's title, we are suggesting that it 
would be a "nice to have feature' 
incorporated in all packet stations 
regardless of the protocol or INC used. 


This paper describes the subroutines 
used by the author to provide these 
functions on a Model I TRS-80 with the 
packet radio software approach using the 
Vancouver protocol. 


GENERAL: 


These subroutines were written and 
tested during the summer of 1983. Why did 
they use the Vancouver protocol? Quite 
simply because at that time in the western 
New York and southern Ontario regions there 
were no AX.25 stations (other than the 
author's software approach) on the 2 meter 
band. Southern Ontario (in the vicinities 
of Hamilton and _ Toronto) had about 50 
active packeteers, all using the Vancouver 
TNC with Vancouver protocol, and the 
Buffalo, NY area 65 miles northeast of our 
QTH had Gil Boelke = W2EUP, using the 
Vancouver protocol with the GLB PkK-1 
software approach. 


W2EUP convinced us of the value of 
implementing disk I/O in the AUTO mode with 
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a number of demonstrations, so we wrote the 
following subroutines. They are designed 
to work only with the following Model I 
TRS-80 disk operating systems: TRSDOS 2.3, 
NEWDOS + and NEWDOS 1.0. 


Figure 1 is the commented source code 
for this subroutine. The comments are 
largely self explanatory. The equates 
{EQU) at the beginning of the program serve 
to link these AUTO mode subroutines to the 
main software program used in Volume 3 of 
‘Synchronous Packet Radio Using The 
Software Approach # Advanced Vancouver 
Protocol. * 


Though only the SEND, SAVE, LIST, and 
HELP commands are used in this 
mini-subroutine it is a relatively simple 
matter to expand the commands to include 
FLAGS xxx to set the program's number of 
opening flags transmitted, DELETE file name 
to do just that, and to include the disk 
drive number with the file name so. any 
number of disk drives from 1 to 4 may be 
accessed. 


Depending upon how far you wish to go, 
this fundamental program may be expanded up 
to and including all of the features of a 
full sized computer bulletin board system. 


Originally, the AUTO disk I/O 
subroutines required a carriage return and 
line feed immediately after each command to 
eliminate the possibility of having the 
program confuse an info field in a frame 
that began with SEND, SAVE, LIST or HELP as 
a command rather than part of the message. 
Since the commands must be in capital 
letters, this has not occurred during the 
past 9 months of operation so the mandatory 
carriage return and line feed requirements 
were removed to further simplify operation. 
By all means put them back in if you wish. 


W2EUP's and K2IMF's AUTO mode disk I/O 
programs require that each command begin 
with the / character; i.e., /SEND, /SAVE, 
/LIST, and / HELP to avoid possible 
confusion. This is yet another approach 
you might consider. 


Figure 2 is the HELP message the 
program sends in the AUTO mode upon 
receiving the HELP command in a_ single 
frame packet after the connection is 
established. The capital M's represent 
ASCII 13 carriage returns and the capital 
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3% represent ASCII 10 line feeds. They 
are included, as some of the dumb terminals 
now used with some packet TNCs do not have 
the automatic scrolling feature. 


CONCLUSION: 


Expanding the auto connnect mode's 
capability to include disk I/O has proven 
extremely useful. We are grateful to W2EUP 
for the concept and ‘mena continued 
encouragement. 


Volume 3 of @Synchronous Packet Radio 
Using The Software Approach = Advanced 
Vancouver Protocol' has not been published 
and probably never will be published. 


WHY ? 


Quite simply the brilliant AX.25 
protocol is taking the world by storm. Its 
growth capabilites and myriad other 
advantages over the older Vancouver 
protocol have just about buried the old 
timer once and for all except in the 
immediate Toronto, Vancouver, and Melbourne 
environs. 


The other reason ‘Advanced Vancouver 
Protocol' may never be published is simply 
the costs involved. It takes a minimum of 
200 sales per volume just to break even and 
with the greatest stretch of our wildest 
imagination we cannot forsee 200 
knowledgeable radio amateurs springing for 
yet another Vancouver protocol book. 


If you feel you must have a copyof 
the uncommented source and object code for 
Volume 3, available only for the Model I 
TRS-80, on a single, DOUBLE sided, 35 track 
disk, with no instructions or assistance 
whatsoever other than a short single page 
telling you how to install your own call 
letters and node number in the program, 
then send Richcraft acheck for $29 and the 
disk will be mailed to you first class. 


Richcraft Engineering Ltd. 
#1Wahmeda Industrial Park 
Chautauqua, New York 14722 


NOTE: 


The main and shift menus of the Volume 
3 program are similar to the menus 
illustrated in Figure 2 of the Ax.25 
Protocol paper by the sane author that is 
presented elsewhere in these proceedings. 


VOLUME 3 MAIN MENU; 


CHANGE ADDRESSEE CALL 

NOT CONNECTED TOGGLE 

SEND PACKETS FROM LO-MEM 
INPUT FRAMES/PACKET LO-MEM 
BACKOFF DELAY TOGGLE OFF 
NOW IN UPPER CASE MODIFY 
DISPLAY/EDIT MEMORY PAGE 
NOT FORMAT VIDEO TOGGLE 
TRANSMIT EXTERNALLY ONLY 
TRANSMIT TO III-MEM ONLY 
CLEAR NON-PGM MEM 17K-62K 
ABORT LOW-MEY PAK SEQUENCE 


SHIFT MENU 


SEND WAIT REQUEST (RNR) 


ENTER OPTION DESIRED 3 a 


Wr KAONOOSRHAMNY 


VOLUME 3 SHIFT MENUs 


XMIT 40960 UP CONTINUOUSLY = 
LOAD HI-MEM ASCII UUUULUU 
EDIT/MODIFY INSTRUCTIONS 
LOG ON VE3MliZ REPEATER 


SEND MORSE I.D. 


CAUTION ** RESTORE DOS *# 
DISPLAY RCCV PACKS @ 53248 
DISPLAY CALL/ADDRESS LIST 
SAVE HI-MEM ON DISK 
TRANSMIT BAUD RATE SELECT 
CLEA? II-MEMORY 53248 + 
RECEIVE AX.25 NOT CONNECT 
NORMAL DISPLAY = NOT DPLL 
NOTE: SPACE BAR IN RI 


W2EUP CONNECT REQUEST CQ 3 
W2EUP DISCONNECT REQUEST 2 
W2EUP CONNECT ACKNOWLEDGE = 
THIS IS VAYCOUVER PROTOCOL 2 
AUTO CONNECT TOGGLE OFF = 
W2EUP + GIL BOELKE MESSAGE =» 
SET INFO FIELD LOMEM PACKS # 
QUICK BROWN FOX MESSAGE 
SET OPENING FLAG LENGTH 
INPUT/XMIT NORMAL INFO 3 V 
INPUT/XMIT ALL STATION = V 
SET RF-TRY IN CONNECT MODE 
MOVE HI-MEM TO LOW=MEM 
SEND CLEAR WAIT (RR) 


SHIFT MENU ? ae 


obndonak yn tea 


A 
c 
E 
G 
I 
K 
M 
0 
Q 
Ss 
U 
WwW 
Y 
E 


fa] 


C. 


VOLUME 3 CALL & ADDRESS LIST 


VE7APU = 196 
(DOUG) 
VE3DNM = 98 
(MAX) 

VESEC = 236 
(BILL) 
VE3FGK = 218 
(DAVE) 
VE3IUV = 116 
(RON) 
VE3PKT = 186 
(MAIL BOX) 
K2IMF = 41 
(DON) 


BOOT DOS READY 


LOAD HI-mME¢M LOGIC 1111111 2 
CHANGE RECEIVE DPLL BASE # & 
LOG OFF VE3MliZ REPEATER = 
SEND SEQUENTIAL ACKS = 
DISPLAY LOW MEMORY @ 17408 2 
RESTORE PROGRAM POINTERS » 
MOVE PROGRAM TO LOW MEMORY = 
LOAD DISK FILE TO HI-MEM = 
SEND DISK :1 DIRECTORY = 
RECEIVE VANCOUVER PROTOCOL # 
SEND MORSE FROM KEYBOARD = 
DISPLAY DPLL LAST QUADRANT 
IVE MODE = RESEND LAST PACK 


(SUMMER ‘83): 


« CALL AND ADDRESS LIST 


VE3ATI = 51 
(BERNIE) 
VE3DSP = 97 
(GLEN) 


5 
Nn 
a 
S 
t 


VE2BAR = 215 
(MIKE) 
VE3DVV = 115 
(JOHN) 
W2EUP = 119 
(GIL) 

VE3GBC = 216 
(BRUCE) 
VE3MWM = 185 
(STU) 

VE3SP = 118 
(RON) 

W4UMF © 28 
(TOM) 


POTENTIAL OSCAR 10 PACKETEERS (SUMMER '83): 


U.S.A. 
KA1GD ANDY 
K2IMF DON 
K4BRK CARL 
W4UCH BOB 
KA6M HANK 
WeKOX TOM 
KAQNZI GARY 
OVERSEAS : 
OK2SPS PETER 
CANADA : 
VE2BAR MIKE 
VE3DNM MAX 
VE3FC BILL 
VE3FMG MIKE 
VE3LNY JACK 
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KAIHTV UNK 

WA2 LOQ GRUM 
K4CAV CHAS 
W4UMF TOM 

W6OVP DAVE 
W9BD FRED 
KA9Q PHIL 


SMSHEV JENS 


VE2BPD JEAN 
VE 3DRZ ROB 
VE3EHL ED 
VE3GRC BRUCE 
VE3MWM STU 


@ POTENTIAL OSCAR 10 PACKET LIST AS 


WAILOU STAN 
WB2VEU ANDY 
WB4JFI TERRY 
WA6JPR WALT 
W6TNS DON 
WBOFLW PETE 
NOCCZ ANDY 


VK2BOA TONY 


VE3ATI BERNIE 
VE3DSP GLEN 
VE3FAO FRANK 
VE3IAC PAUL 
VE3NEC JOUN 


SNK SHDVUSHYTAOW 


Hnadomat 


Ax CA DUZFam TOD 


VE3BKB = 220 
(JON) 
VE3DRZ2 = 239 
(ROB) 
VE3FAO = 250 
(PRANK) 
VE3IAC = 238 
(PAUL) 
VE3NEC = 210 


(JOHN) 
VE3UR ® 221 
(RAY) 
W2CIX = 30 


(BILL) 


OF 8/15/83 + 
W2EUP GIL 
W3IWI TOM 
W4RI PAUL 
NK6K HAL 
WA7GXD LYLE 
KING STEVE 
KROU TIM 


ZLIAOX IAN 


VE3BKB JON 
VE3DVV JOHN 
VE3FGK DAVE 
VE3IUV RON 
VE3SP RON 


LLES 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 

00200 

00210 
00220 

00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 


3 AUTO DISK I/O SUBROUTINES FOR VOLUME 3 


FIGURE 1 


3 SYNCHRONOUS PACKET RADIO USING THE SOFTWARE APPROACH 


NEWDOS PLUS 


= NEWDOS80 1.0 


OBJECT AUTO 2 


1984 BY RICHCRAFT ENGINEERING LTD. 


3} FOR TRSDOS 2.3 @ 
3} SOURCE = AUTO 4 
3 COPYRIGHT (C) 
SETUP EQU 29760 
LENGTH EQU 75FBH 
AUTSAV EQU 75FDH 
CONREQ EQU 75FEH 
BEFORE EQU 7601H 
SEGNUM EQU 7603H 
CLRHY EQU 7604H 
SEND3Z EQU 7607H 
PACK EQU 760AH 
FRAMES EQU 7611H 
MOVDN EQU 761FH 
SIGN9 EQU 762FH 
MENU EQU 7630H 
ORG 49632 
FCB DEFS 32 
BUFFER DEFS 256 
CHEKIT INC HL 
LD A, (HL) 
cP "ZL! 
JP Z,TESTL 
cp 1 
JP 2,TESTH 
cP Se 
JP Z, TESTS 
RET 
TESTL INC HL 
LD A, (HL) 
cP byt 
RET NZ 
NC HL 
LD a, (HL) 
P NS! 
RET NZ 
Cc HL 
LD A, (HL) 
cP um? 
RET vA 
LD A,8 
LD (SIGN9) ,A 
RET 
TESTH INC HL 
LD A, (HL) 
cP ‘Ee! 
RET vA 
INC HL 
LD A, (HL) 
cP 'L! 
RET NZ 
INC HL 


s INITIALIZE PGM POINTERS 
;INFO FIELD LENGTH/FRAME 
;AUTO SAVE DISK POINTER 
3SABM POINTER 

3;END RCVD INFO III-MEMORY 
3;VERY LONG FILE SEGMENTS 
;CLEAR HI-MEMORY 

:XMIT MESSAGE ADDRESS 
3;XMIT MULTI-FRAME ADDRESS 
;NUMBER OF FRAMES/PACK 
;RESTORE DOS FM MID-MEM 
;TYPE FUNCTION AUTO PTR 
;DISPLAY MAIN MENU 

;DISK FILE CONTROL BLOCK 
;SAVE 32 BYTES FOR FCB 
sDISK I/O WORKING SPACE 
sTEST 

3; THE 

;AUTO 

;FUNCTION 

;DESIRED 

:BY 

7THE 

; STATION 

3;WHO 

;CONNECTED 

7TO 

7YOUR 

; STATION 

;WHICH 


;GOT A 'LIST' COMMAND ? 

3;1IF SO, 

;THEN SET SIGNI FOR LIST 
;RETURN WHENCE U CAME +1 
;LAST LETTER WAS AN 'H' 


00690 
00700 
00710 
00720 
00730 
00740 
00750 TESTS 
00760 
00770 
00780 
00790 
00800 
00810 
00820 TESTA 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00380 
00990 TESTE 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 DIZ 
01170 
01180 
01190 
01200 
01210 
01220 DZ 
01230 
01240 
01250 
01260 FINISH 
01270 CLS 


LD 
cP 
RET 
LD 
LD 
RET 
INC 


agaaaet 
vuuWU 


ES) 
f 
4 


INC 


PHO 
OUZwAWU 
QH 


io) 
bas) 


RET 


BH 
uw 
a 


io) 
ay) 


RET 


CH 
0UUZ 
Q 


Q 


3 
| 


Q 


4 


Hyoa2hyuahiyvo2ho 


Q 


UYUHOUUNU 
j 


> 
E 
cE; 


HOAGQQP DP PP HDAQNQHPHWDQAHPHDAQFPHDWEHEE 


A,2 
(SIGNI) ,A 


HL 

A, (HL) 
‘A’ 
Z,TESTA 
es 
Z,TESTE 


HL 
A, (HL) 
DAY 
NZ 
HL 
A, (HL) 
‘ER! 
NZ 
HL 
A, (HL) 
64 


NZ 

HL 

A,6 
(SIGN9) ,A 
(SAVEIT) , HL 


HL 
A, (HL) 
"nN! 
NZ 


HL 
A, (HL) 
"Dp! 
NZ 


HL 
a, (HL) 
9 


NZ 

HL 

A,4 
(SIGNS) ,A 
(SAVEIT) , HL 


A, (HL) 
0 


Z,FINISH 
033H 

HL 

DIZ 
OA9AH 
OFBDH 
DIZ 


HL, 15360 


;COMMAND 

3WAS IT 'HELP' ? 
;IF NOT, IGNORE IT 
31IF SO, 
;THEN SET SIGN9 FOR HELP 
;RETURN WHENCE U CAME +1 
;LAST LETTER WAS AN 'S! 
#TEST FOR 
;'A' AS IN SAVE 

3;IF SO, TEST FOR 'V' 
;ELSE TEST FOR 'E' AS IN 
;SEND. IF SO, TEST 'N' 
;RETURN WHENCE U CAME +1 
:GOT AN 'S' AND 'A! 

3 NOW 

;TEST 

7FOR 

7h tye 

3;AND 

3'E! 

3IF so, 

3;ALSO TEST 

3FOR A 

;SPACE AFTER SAVE 

3;IF NOT, 

3;THEN IGNORE IT 

7 ELSE 

3;SET SIGN9 FOR 'SAVE' 
AND SAVE MEM LOCATION 
3FOR 'SAVE' FILE NAME 
3;GOT AN 'S' AND 'E! 

750 

3TEST 

3FOR 

3'n' 


3A 

3SPACE ? 

sIF 

750? 

3THEN SET 

3SIGN9 FOR A 'SEND' 

3;AND SAVE MEM LOCATION 
3FOR SEND FILE NAME 
DISPLAY 

3A MESSAGE 

3ON VIDEO 

3;AT CURSOR 

;LOCATION WITH 

3ZERO DELIMITER 

;MOVE HL TO ACCUM 
;CONVERT ACCUM TO STRING 
;DISPLAY IT ON VIDEO 
;RETURN WHENCE U CAME +1 
;RETURN WHENCE U CAME +1 
7C LEAR VIDEO 


ZLLe 


01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 


ERR 


TESTSP 


INPNAM 


INNAME 


ESCAPE 


LONG 
LON1 


(16416) ,HL 
DE, 15361 
BC, 1023 
(HL) , 32 


'SP ERROR ° 
) 

HL,0 
HL,SP 
DE, 29756 
18H 

Zz 

HL 

CLS 
HL,ERR 
Diz 

HL 

DZ 

049H 
SP,29758 
MENU 

CLS 
HL,NAM1 
DIZ 

049H 


1 

Z, ESCAPE 
CLS 

HL, NAMIA 
DIZ 

1BB3H 

10H 

1E5AH 

DE,HL 
(DUMP+1) , HL 
(HOWFAR+1) , HL 
CLS 

HL, NAM2 

DIZ 

1BB3H 
HL,41E8H 

a, (HL) 


0 
Z,ESCAPE 
LONG 

HL, 41E8H 
DE,FCB 


DRIVE 


AF 

HL, 53248 
(DUMP+1) ,HL 
(HOWFAR+1) ,HL 
MENU 

BC,0 

A, (HL) 

0 


;RESET VIDEO CURSOR 
;CLEAR THE 

31024 BYTE 

;VIDEO DISPLAY 

;WITH 

;SPACES 

;STACK POINTER 

;ERROR MESSAGE 

;THE OPTIONAL 

+ STACK 

;POINTER 

;TEST 

3 IS INCLUDED 

3FOR TROUBLE 

3 SHOOTING 

7 YOUR 

? PROGRAM 

;MODIFICATIONS 

7 SHOULD 

7 YOU 

;WISH 

;TO USE IT. 

;NOT USED BY AUTO MODE 
yONLY FOR KEYBOARD INPUT 
;REMEMBER DELIMITERS MSG? 
;AWAIT KEYBOARD INPUT 
3;BREAK KEY PRESSED ? 

3IF SO, GOTO MAIN MENU 
7C LEAR VIDEO 
;BEGIN ADDRESS MESSAGE ? 
3ON VIDEO 

;INPUT BEGIN ADDRESS 
3;SCAN STRING SET 'C' FLAG 
;CONVERT UNSIGNED INTEGER 
;SWAP INTO HL REGISTER 
;LOAD BEGIN INTO DUMP 
;AND BEGIN INTO HOWFAR 
3C L EA R VIDEO 
;INPUT FILE NAME MESSAGE? 
3;ON VIDEO 

; INPUT FILE NAME 

;WHERE STASHED IN MEMORY 
;TEST FOR NOTHING INPUT 
3;IF SO, 

;GOTO MAIN MENU 

;HOW MANY BYTES IN NAME? 
sNAME LOCATION IN MEMORY 
3SO MOVE THEM TO 

3;FILE CONTROL BLOCK 

3;AND DRIVE NUMBER TOO 
3;RETURN WHENCE U CAME +1 
;ADJUST STACK FOR CALL 
;RESET TO NORMAL 

;DUMP AND 

;HOWFAR 

GOTO MAIN TIP MENU 

;HOW LONG IS FILE NAME ? 
;BYTE FROM NAME STRING 
3ZERO DELIMITER 


01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 


LIsT1 


GOON 
GOON1 


GOON2 


DUN 


TESDOS 


GOBAK 


ONWARD 


Zz 
Cc 

HL 

LON1 
0C440H 

A 
(SIGNS) .A 
A,195 
(400CH) ,A 
MOVDN 

HL , GGON 
(4468H) ,HL 
CLS 
HL,MS1A 
DIZ 
HL,MS1A 
4405H 

HL 

a, (HL) 

3 


Z,DUN 
‘p' 

Z, TESDOS 
033H 

HL 

13 

NZ ,GOON1 
HL 


HL 
(HOLE) ,A 


A, (HOLE) 
HL 

GOON2 

HL, (16416) 
HL 


HL 


;RETURN WITH BYTE COUNT 
31 MORE BYTE 

;NEXT MEM LOCATION 

3;GO COUNT IT 

;LIST SUBROUTINE LOCATION 
3;ZERO OUT LIST POINTER 
;AT BEGIN RECEIVE MODE 
;RESTORE JUMP 

3; IN LOW MEMORY 

;RESTORE DOS 

s:COMPOSITE DIRECTORY SUB= 
;ROUTINE SEARCH ADDRESS 
3FOR TRSDOS 2,3 AND 
?NEWDOS + AND 

sNEWDOS 1.0 
COMPATIBILITY 

;DISPLAY DIRECTORY VIDEO 
7SINCE 

3TRSDOS 2.3 

3AND 

sNEWDOS + 

;AND 

sNEWDOS 1.0 

;USE 

;SCMEWHAT 

;DIFFERENT 

;LIST THE 

;DIRECTORY 

; SUBROUTINES, 

;THIS 

7 SIMPLE 

3 PROGRAM 

7FINESSES 

3THE 

7 PROBLEM 

7; BY 

?FIRST 

;DISPLAYING 

3;THE 

;DIRECTORY 


3OF 

3THE 
;DIRECTORY 
3 ON 

3;THE 

3 VIDEO 
;DISPLAY 
71S 
;CALCULATED 
3; USING 
7THE 

3* DOS 

; READY 
7MESSAGE, 


ELLs 


02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02690 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 


LBYTES 
CLRLO 


NUMB 
MOVHI1 


Mov1 


STORDE 


THEND 
LFEED 


NUM2 
CALFRM 


PReUDMHRPOHEE 


HL, 15360 
OBC7H 
(LBYTES) ,HL 


HL, 15360 
DE, 53248 


SP,29758 
SETUP 
CLS 
CLRLO 
MOVHI1 
CALFRM 
PACK 

0 

HL, 16872 
DE, 16873 
BC,12878 
(HL) ,0 


0 

A, 62 
(NUMB) ,A 
HL,53248 
DE, 17408 
BC, (LBYTES) 
A, (HL) 
(DE) ,A 
HL 

DE 

A, (NUMB) 
A 


(NUMB) ,A 
Z,LFEED 
BC 
A,B 
c 
Z,STORDE 
MOV1 
READY 
(THEND) ,DE 


0 

A,62 
(NUMB) ,A 
A,13 
(DE) ,A 
DE 

A,10 
(DE) ,A 
DE 


0 
DE, (THEND) 
HL,17408 


;AND 

3; THE 

;DISK 

; DIRECTORY 

;MOVED 

;FROM VIDEO 

3;TO 

3; HI-MEMORY 

3; RIGHT 

3; HERE. 

3;RESET STACK POINTER 

; INITIALIZE PGM POINTERS 
7CL AR VIDEO 
;CLEAK OUT DOS LO-MEM 
;MOVE FROM HI TO LO=-MEM 
;CALCULATE FRAMES /PACK 
37AND GO SEND THEM. 
;NUMBER BYTES READ STASH 
7CLEAR OUT DOS 

3;FROM 

3;LOW MEMORY 

AND REPLACE 

;WITH 

3 ZEROS. 

3;BYTES PER LINE STASH 
;USE 62 PER LINE 

7; AND SET NUMB 

7;BEGIN HI-MEMORY 

;BEGIN MULTI-FRAME XMIT 
;NUMBER BYTES TO MOVE 
;BYTE FROM HI-MEM 

3;MOVE TO LO-MEM 

;NEXT HI-MEM LOCATION 
;NEXT LO-MEM LOCATION 
;BYTES PER LINE 

;MINUS ONE 

;AND SAVE IT 

7ZERO DO CARRET/LINEFEED 
;BYTES TO MOVE COUNTER 
;TEST 

;FOR ZERO ? 

?}SAVE END LOCATION LO-MEM 
7ELSE MOVE NEXT ONE 


+SAVE END LO-MEM LOCATION 
;RETURN WHENCE U CAME +1 
7END LOCATION STASH 
;BYTES PER LINE 

7RESET COUNTER 

7;CARRIAGE RETURN 

7;STUFF INTO LO=-MEI 

7;NEXT LO-MEM LOCATION 
;LINE FEED 

;STUFF INTO LO-MEM 

3;NEXT LO-MEM LOCATION 
;RETURN WHENCE U CAME +1 
NUMBER FRAMES COUNTER 
7LO=MEM END MSG LOCATION 
;BEGIN MULTI-FRAME ADRESS 


03050 
03060 
03070 
03080 
03090 
03100 
03110 

03120 
03130 
03140 
03150 
03160 
03170 
03180 
03190 
03200 

03210 
03220 
03230 
03240 
03250 

03260 
03270 
03280 

03290 
03300 
03310 
03320 
03330 
03340 
03350 
03360 
03370 
03380 
03390 
03400 

03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 

03500 

03510 

03520 
03530 

03540 

03550 

03560 

03570 

03580 

03590 

03600 
03610 
03620 
03630 


NUM1 


FIN 


SET7 


SET1 


HELP 1 


HELP1A 


OPEN1 


MULPLY 


MULO 


xa 
2) 
ve) 


Q 


Q 


4 


DQH 


PPR QPP YP KOMP RDP EP DHA UAPYQYUNGHRPHENOFE 
io 
iol 


ODO O77 TT OO SPOS 0S SO VUZVWWUY 


OBC7H 

DE, 250 
1C90H 
C,SET1 

A 

(NUM2) ,A 
DE, (LENGTH) 
A 


HL,DE 
A, (NUM2) 
A 


(NUM2),A 
Z,FIN 

C, FIN 
NuIM1 

A, (NUM2) 
7 


P,SET? 
(FRAMES) ,A 


A,7 
(FRAMES) ,A 


A,1 
(FRAMES) ,A 


0C580H 

A 
(SIGN9) ,A 
A,195 
(400CH) ,A 
MOVDN 
HL,HELP1A 
DE, FCB 
BC,7 


OPEN1 
MULPLY 
READ 
CLOSE 
SP,29758 
SETUP 
CLRLO 
MOVHT2 
CALFRM 
CLRHY 
PACK 
"HELP: 1 
13 

DE, FCB 
HL,BUFFER 
B,0 
4424H 
NZ, ERROR 


A, (FCB+12) 
47 

P, VYLONG 
HL,0 


;SUBTRACT HL FROM DE 
3250 BYTES ? 

;COMPARE HL = DE 

3< 250 SO SET 1 FRAME 
;ELSE 

;RESET COUNTER 

3;INFO FIELD LENGTH/PACK 
3;CLEAR CARRY FLAG 
;SUBTRACT DE FROM HL 
;FRAME COUNTER 

7PLUS ONE 

3;AND SAVE IT 

;IF ZERO ALL DONE 

TLE URRY? ALL DONE 

3;ELSE DO NEXT ONE 
3;FRAMES COUNT 

37 FRAMES ? 

;MORE THAN 7, SET AT 7 
;ELSE SET AT NUMBER 
;RETURN WHENCE U CAME +1 
;FRAMES/PACK = 7 

3;SET FRAME COUNTER 
;RETURN WHENCE U CAME +1 
;FRAMES/PACK = 1 

3;SET FRAME COUNTER 
;RETURN WHENCE U CAME +1 
;HELP MESSAGE SURROUTINE 
;ZERO OUT HELP POINTER 
;AT BEGIN RECEIVE MODS 
;RESTORE JUMP 

3;IN LOW MEMORY 

;RESTORE DOS LO-MEM 
;HELP:1 DISK FILE NAME 
3;FILE CONTROL BLOCK 
;FILE NAME + DELIMITER 
;MOVE TO FCB 

;OPEN AN EXISTING FILE 
;CALCULATE BYTES IN FILE 
;READ THEM FROM DISK 
;CLOSE THE DISK FILE 
;RESET STACK POINTER 

; INITIALIZE PGM POINTERS 
;CLEAROUT DOS FROM LO-MEM 
}MOVE FTLLE ‘Hi TO LO-MEM 
;CALCULATE FRAMES/PACK 
;}CLEAR OUT HI-MEM 

3}SEND MULTI-FRANE PACKS 
;HELP FILE NAME AND DRIVE 
;FCB DELIMITER 

;OPEN AN EXISTING FILE 
;DISK I/O BUFFER ADDRESS 
;BYTES PER SECTOR 

;DOS OPEN IT SUBROUTINE 
;Z FLAG SET IF ERROR 
;RETURN WHENCE U CAME +1 
;NUMBER RECCRDS IN FILE 
;MORE THAN 47 ? 

;IF SO, GOTO VERY LONG 
;BYTES IN FILE COUNTER 


pie 


03640 MUL1 
03650 
03660 
03670 
03680 
03690 MUL2 
03700 
03710 
03720 
03730 MuL3 
03740 
03750 
03760 
03770 
03780 READ 
03790 
03800 LG 
03810 
03820 
03830 
03840 
03850 
03860 
03870 LONG1 
03880 
03890 
03900 
03910 
03920 
03930 
03940 CLOSE 
03950 
03960 
03970 
039 80 
03990 
04000 
04010 
04020 
04030 ERROR 
04040 
04050 
04060 
04070 
04080 
04090 ER 
04100 
04110 
04120 
04130 
04140 
04150 
04160 ER2 
04170 
04380 
04190 
04200 
04210 
04220 


Pree 


Oe ES Se 


iw) 


4 


YVOUMUHRE DWH PHE 
D> 
Et 
Ee 


[e) 
lac) 


MUL1 

A, (FCB+8) 
E,A 

D,0 

HL ,DE 
(LBYTES) ,HL 
DE, 53248 


HL, DE 
(LONG1+1) , HL 


HL, 53248 
DE,FCB 
HL 

13H 

HL 

(HL) ,A 
HL 


HL 

DE 
DE,65535 
A 


HL,DE 

DE 

HL 

2 

LG 

DE, FCB 
4428H 

AF 

HL, 53248 
(DUMP+1) ,HL 


(HOWFAR+1) , HL 


AF 


ly ,MS2C 
SEND32 


;BYTES PER SECTOR IN FILE 
sADD TO BYTE COUNTER 
;MINUS ONE RECORD 

:IF ZERO, DO LAST ONE 
3ADD UP NEXT ONE 

;BYTES IN LAST SECTOR 
;SWAP IN TO '5! 

3ZERO OUT 'D' 

3ADD TO TOTAL BYTES 

3;AND SAVE THEM HERE 
;BEGIN HI-MEM LOCATION 
;HL+DE IN END LOCATION 
3;AND SAVE THEM HERE 
;RETURN WHENCE U CAME +1 
;WHERE TO PUT FILE IN MEM 
3;FILE CTRL BLOCK ADDRESS 
3SAVE MEM LOCATION STACK 
}READ BYTE FROM DISK FILE 
;RESTORE MEM LOCATION 
;DISK BYTE INTO MEMORY 
}NEXT MEM LOCATION 

3;SAVE IT ON STACK 

;SAVE FCB POINTER 

3MEM END ADDRESS OF FILE 
#CLEAR CARRY FLAG 
;SUBTRACT DE FROM HL 
;RESTORE FCB POINTER 
;RESTORE MEM LOCATION 
;RETURN IF ALL DONE 
}READ NEXT DISK FILE BYTE 
3FCB MEM LOCATION 
3CLOSE FILE SUBROUTINE 
3;SAVE FLAG ON STACK 
;BEGIN HI-MEM ADDRESS 
;RESET DUMP 
;RESET HOWFAR 
;RESTORE FLAG 
;RETURN UNLESS ERROR 
sADJUST STACK FOR CALL 
3ZERO OUT ‘H' 
;ERROR NUMBER TO 'L* 
;MOVE HL INTO ACCUM 

;MAKE SURE AN INTEGER 
;CONVERT ACCUM TO STRING 
;ERROR MESSAGE IN MEM 
;FIRST ERROR NUMBER 

3;ZERO DELIMITER 

3ALL DONE ? GOTO ER2 
3ERROR NUMBER TO MESSAGE 
3NEXT ERROR # LOCATION 
3NEXT MESSAGE LOCATION 
3GO MOVE NEXT ONE 

7C LEAR VIDEO 
zADJUST STACK FOR CALL 
sINITIALIZE PGM POINTERS 
;CLEAR OUT DOS LO-MEM 
;CLEAR OUT HI-MEM 

+ERROR # MESSAGE 
;TRANSMIT ERROR # MESSAGE 


04230 MOVH12 
04240 
04250 
04260 
04270 
04280 
04290 
04300 
04310 
04320 
04330 
04340 
04350 
04360 
04370 SEND1 
04380 
04390 
04400 
04410 
04420 SEN1 
04430 
04440 
04450 
04460 
04470 
04480 
04490 SEN2 
04500 
04510 
04520 
04530 
04540 
04550 
04560 
04570 
04580 
04590 
04600 
04610 
04620 
04630 
04640 
04650 
04660 DRIVE 
04670 
04680 
04690 
04700 
04710 
04720 
04730 
04740 
04750 
04760 
04770 
04780 
04790 
04800 SAVEIT 
04810 NAM% 
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E 
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EGE BSE 


Q 
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DEFW 
DEFM 


HL,53248 
DE, 17408 
BC, (LBYTES) 


A,128 
(DE) ,A 
DE 
(DE) ,A 
DE 


(DE) ,A 
DE 
(THEND) ,DE 


0C680H 
A 
(SIGN9) ,A 


HL, (SAVEIT) 
DE, FCB 


ay 
Oo 
uo 


OVDN 
PEN1 


Qunorzoserag 
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= 
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QQ 
> 
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7MOVE H-MEM TO LO=-MEM 
;WITHOUT CARRET/LINEFEEDS 
sNUMBER OF BYTES TO MOVE 
3DO IT 

;MULTI-FRAME 

7;TRANSMIT 

; SUBROUTINE 

7USES 

3 THREE 

3EACH 128 

3DELIMTERS 

3IN A ROW 

?RETURN WHENCE U CAME +1 
sAUTO SEND FILE ROUTINE 
3ZERO OUT SEND POINTER 
;AT BEGIN RECEIVE MODE 
;FILE NAME MEM LOCATION 
?FILE CTRL BLOCK ADDRESS 
3ZERO OUT 'BC' 

3MOVE FILE NAME TO FCB 
#CARRIAGE RETURN DELIMTER 
3GOTO SEN2 IF DONE 

3LOAD NAME INTO FCB 
3NEXT MEM LOCATION 

sNEXT FCB LOCATION 

3GO MOVE NEXT ONE 

3;STUFF DRIVE # IN FCB 
;CLEAR OUT HI-MEM 

;RESET JUMP 

3IN LO-MEM 

?RESTORE DOS TO LO-ME!? 
sOPEN AN EXISTING FILE 
;CALCULATE # FILE BYTES 
3READ THEM FROM DISK 
?THEN CLOSE THE FILE 
;RESET STACK POINTER 
sINITIALIZE PGM POINTERS 


3;CLEAR OUT 
;MOVE FILE 
;CALCULATE 
#CLEAR OUT 
s;C LEAR 


DOS LO=-MEM 
HI TO LO-MEM 
FRAMES /PACK 
HI-MEM 
VIDEO 


3SEND MULTI-FRAME/PACKS 
3DRIVE # SEPARATOR 
7;STUFF INTO FCB 

?NOT USED NOW 

?NEXT FCB LOCATION 

3NOT USED NOW 

?DISK NUMBER 

3STUFF INTO FCB 

sNOT USED NOW 

3NEXT FCB LOCATION 

3NOT USED NOW 

sFILE NAME DELIMITER 
3STUFF INTO FCB 

:NOT USED NOW 

;RETURN WHENCE U CAME +14 
;FILE NAME BEGIN STASH 
‘INPUT FILE NAME * 


SLL’e 


SAVE1 


SAV1 


SAV2 


OFEN2 


OPEN3 


OPEN4 


SENDIT 


SAV3 


Pee Gee 
ft 
Et 


Pease 
Zovogdsouuy 


oz 
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EA 
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0 
0C700H 


A 

(SIGN9) ,A 
CLS 

A.195 
(400CH) ,A 
MOVDN 

HL, (SAVEIT) 


OPEN2 
SP,29758 
SETUP 
CLRLO 
SENDIT 
HL, BUFFER 


NZ ,OPEN4 
SP,29758 
SETUP 

IY ,MS2B 
SEND3Z 
HL, BUFFER 


4420H 


CLRHY 

A,1 
(AUTSAV) ,A 
IY,MS3A 
SEND32Z 
0C780H 
A,195 
(400CH) ,A 
MOVDN 
SETEND 
SETFCB 
OPEN1 
4448H 
DUMP 
CLOSE 
SP,29758 
SETUP 


DELIMITER 

sAUTO SAVE DISK FILE 
;ZERO OUT SAVE POINTER 
3AT BEGIN RECEIVE MODE 
;C LEAR VIDEO 
;RESTORE JUMP 

7TO LOW=MEM 

;RESTORE DOS TO LO=MEM 
;BEGIN FILE NAME LOCATION 
;FILE CTRL BLOCK ADDRESS 
;FILE NAME TEMP. STASH 
;FILE NAME BYTE 

;FILE NAME DELIMITER 
;GOTO SAV2 IF DONE 

;NAME BYTE TO FCB 
;TEMPORARY STASH 

;NEXT NAME BYTE LOCATION 
;NEXT FCB LOCATION 

;NEXT STASH LOCATION 
;CONTINUE MOVING NAME 
;LOAD DISK DRIVE NUMBER 
;OPEN NEW FILE ONLY 

; RESET STACK POINTER 

; INITIALIZE PGM POINTERS 
;CLEAR OUT DOS LO-MEM 
;SEND 'GO AHEAD' MESSAGE 
;DISK I/O WORKING AREA 
;FILE CTRL BLOCK ADDRESS 
3256 BYTES PER RECORD 
;FILE TYPE DOUBTFUL 
3;OPEN AN EXISTING FILE 
3NZ = IT DOES NOT EXIST 
;NO DUPLICATION ALLOWED 
3;SO RESET SP & INTXALIZE 
;NAME ALREADY USED MSG 
3;SEND 'TRY ANOTHER' MSG 
;DISK I/O WORKING AREA 
;FILE CTRL BLOCK ADDDRESS 
3256 BYTES PER RECORD 
;FILE TYPE DOUBTFUL 
;OPEN A NEW DISK FILE 
;RETURN WHENCE U CAME +1 
;CLEAR HI-MEM 

; SET 
;AUTO SAVE FILE POINTER 
;'GO AHEAD' MESSAGE 
;SENT VIA SEND3 

;AUTO SAVE HI-MEM ONLY 
?FOR FILES > 12K BYTES 
;LENGTH 'IF' A DISCONNECT 
»= ALL DONE IS RECEIVED. 
3STUFF 3 128 DELIMITERS 
;MOVE FILE NAME INTO FCB 
;OPEN AN EXISTING FILE 
sPOSITION END OF FILE 
WRITE MEM TO DISK 
;CLOSE THE DISK FILE 

: RESET STACK POINTER 
sINITIALIZE PGM POINTERS 


05410 CALL 
05420 CALL 
05430 JP 
05440 SETEND LD 
05450 LD 
05460 LD 
05470 INC 
05480 LD 
05490 INC 
05500 LD 
05510 INC 
05520 LD 
05530 RET 
05540 HOWFAR LD 
05550 FAR1 Cc 
05560 LD 
05570 cP 
05580 JP 
05590 Cc 
05600 LD 
05610 P 
05620 JP 
05630 NC 
05640 LD 
05650 cP 
05660 JP 
05670 Cc 
05680 LD 
05690 RET 
05700 DUMP LD 
05710 LD 
05720 DUM1 LD 
05730 PUSH 
05740 CALL 
05750 POP 
05760 JP 
05770 INC 
05780 PUSH 
05790 PUSH 
05800 SOFAR LD 
05810 OR 
05820 SBC 
05830 POP 
05840 POP 
05850 RET 
05860 JP 


05870 NAM1 DEFM 
CAPE ELSE <ENTER>' 


05880 DEFB 
05890 SETFCB LD 
05900 LD 
05910 ST1 LD 
05920 LD 
05930 cP 
05940 RET 
05950 INC 
05960 INC 
05970 JP 
05980 ORG 


CLRLO 
CLRHY 
CONREQ 

HL, (BEFORE) 
A,128 

(HL) ,A 

HL 
(HL) ,A 

HL 

(HL) ,A 

HL 
(SOFAR+1) , HL 
L,53248 


PmAaP ms 
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Ly 


(SOFAR+1) ,HL 
HL ,53248 


HL 


DE, 65535 
A 
HL ,DE 
DE 
HL 


z 
DUM1 


"REMEMBER 128 DELIMITERS ? HIT 


0 
HL,NAME1 
DE, FCB 
A, (HL) 
(DE) ,A 
13 

2Z 

HL 

DE 

stl 
0C840H 


3;CLEAR OUT DOS LO=MEM 
;CLEAR HI-MEM 
;RE-CONNECT TO STATION 
;END HI-MEM INFO FIELDS 
;STUFF 

33 EACH 

;END OF MESSAGE 
;DELIMITERS 

3;AT 

3; THE 

;VERY END. 

;SAVE END MEM LOCATION 
;RETURN WHENCE U CAME +1 
3;CALCULATE BYTES TO SAVE 
;TO DISK FILE 

; LOOK 

7FOR 

7; THREE 

7EACH 

;DECIMAL 

3128 

3END 

; OF 

;MESSAGE 

;DELIMITERS 

7INA 

7ROW. 

;SAVE LOCATION IN SOFAR 
;RETURN WHENCE U CAME +1 
;BEGIN HI-MEM INFO FIELDS 
3;FILE CTRL BLOCK ADDRESS 
;BYTE TO SAVE ON DISK 
;SAVE BYTE MEM LOCATION 
;WRITE BYTE TO DISK 
;RESTORE BYTE LOCATION 
;Z FLAG SET IF ERROR 
;NEXT BYTE MEM LOCATION 
;SAVE IT IN STACK 

;SAVE FCB POINTER 

;LAST MEM BYTE LOCATION 
;CLEAR CARRY FLAG 
;SUBTRACT DE FROM HL 
;RESTORE FCB POINTER 
;AND NEXT MEM LOCATION 
;RETURN IF ALL DONE 

:GO DUMP NEXT ONE TO DISK 
BREAK TO ES 


;DELIMITER 
}FILE NAME TEMP. STASH 
}FILE CTRL BLOCK ADDRESS 
;MOVE FILE NAME+DELIMITER 
?T0 FILE CTRL BLOCK 
;DELIMITER ? 
IF SO, ALL DONE 

;NEXT NAME LOCATION 
:NEXT FCB LOCATION 
;MOVE NEXT ONE 

;MANUAL SAVE DISK FILE 


OLLS 


05990 SVFILE CALL 


06000 CALL 
06010 LD 
06020 LD 
06030 CALL 
06040 CALL 
06050 CALL 
06060 CALL 
06070 LD 
06080 CALL 
06090 CALL 
06100 JP 
06110 MS2C DEFB 
06120 DEFB 
06130 DEFM 
06140 MS2A DEFM 
06150 DEFB 
06160 DEFB 
06170 DEFB 
06180 DEFB 
06190 ORG 
06200 LDFILE CALL 
06210 CALL 
06220 LD 
06230 LD 
06240 CALL 
06250 CALL 
06260 CALL 
06270 CALL 
06280 LD 
06290 CALL 
06300 LD 
06310 CALL 
06320 CALL 
06330 CALL 
06340 JP 


06350 HIHL DEFW 
06360 BAKUP LD 
06370 BAK1 DEC 


06380 LD 
06390 cP 
06400 Jp 
06410 cP 
06420 JP 
06430 INC 
06440 LD 
06450 RET 
06460 TESAGN DEC 
06470 LD 
06480 cP 
06490 JP 
06500 DEC 
06510 LD 
06520 cP 
06530 JP 
06540 LD 
06550 RET 
06560 ORG 


06570 SAVMSG XOR 


INPNAM 
HOWFAR 
A,195 
(400CH) ,A 
MOVDN 
OPEN3 
DUMP 
CLOSE 
SP,29758 
SETUP 
CLRLO 
MENU 

13 

10 

‘ERROR # § 


<READY> ° 


13 

10 

128 

128 
0C880H 
INNAME 
CLRHY 
A,195 
(400CH) ,A 
MOVDN 
OPENL 
MULPLY 
READ 
(HIHL) ,HL 
CLOSE 
SP,29758 
SETUP 
CLRLO 
BAKUP 
MENU 


0 
HL, (HIHL) 


128 
Z,TESAGN 


HL 
(BEFORE) , HL 


HL 

A, (HL) 
128 
NZ,BAK1 
HL 


A, (HL) 

128 

NZ,BAK1 
(BEFORE) ,HL 


0C900H 
A 


:REMINDER+INPUT FILE NAME 
3CALCULATE BYTES TO SAVE 
3RESTORE JUMP 

7TO LO-MEM 

?RESTORE DOS TO LO-MEM 
;OPEN A NEW FILE 

;DUMP HI-MEM TO DISK 
3CLOSE THE DISK FILE 
;RESET STACK POINTER 
sINITIALIZE PGM POINTERS 
3;CLEAR DOS OUT LO-MEM 
;MAIN MENU FOR INSTRUCTS 
3;CARRIAGE RETURN 

sLINE FEED 

3ERROR MESSAGE 

3ERROR # + <READY> MSG 
sCARRIAGE RETURN 

3LINE FEED 

sONLY 2 DELIMITERS NEEDED 
3FOR SEND3 PROCESSING 
;MANUAL LOAD FILE TO MEM 
3 INPUT FILE NAME 

;CLEAR HI-MEM 

;RESTORE JUMP 

;TO LO-MEM 

sRESTORE DOS LO-MEM 
3;OPEN EXISTING DISK FILE 
;CALCULATE FILE LENGTH 
;LOAD FILE TO HI-MEM 
;SAVE HI-MEM END LOCATION 
;CLOSE DISK FILE 

;RESET STACK POINTER 
sINITIALIZE PGM POINTERS 
;CLEAR OUT DOS LO-MEM 
;CHECK TOO LONG LOADED ? 
;MENU FOR INSTRUCTIONS 
3END HI-MEM FILE LOCATION 
3;IF THE FILE LENGTH JUST 
3; LOADED 

3HAD RECORDS 

7LESS THAN 

3 256 BYTES 

;LONG, 

; THEN 

; OBVIOUSLY 

;THIS 

7SIMPLE 

7 SUBROUTINE 

;WILL 

7LOAD 

?FAR 

3;TOO 

? MANY 

;BYTES FROM DISK TO MEM, 
;BAKUP'S JOB IS TO TRY & 
sCORRECT THIS SITUATION. 
3RETURN WHENCE U CAME +1 
sAFTER SAVE IN AUTO MODE 
7ZERO OUT 


06580 LD 
06590 LD 
06600 JP 
06610 MS4A DEFB 
06620 DEFB 
06630 DEFM 
DISK. IF YOU WISH* 
06640 DEFB 
06650 DEFB 
06660 DEFM 
ND. <READY> ! 
06670 DEFB 
06680 DEFB 
06690 DEFB 
06700 DEFB 
06710 READY LD 
06720 LD 
06730 LDIR 
06740 RET 
06750 MSSA DEFB 
06760 DEFB 
06770 DEFM 
06780 DEFB 
06790 DEFB 
06800 DEFB 
06810 DEFB 
06820 DEFB 
06830 RET 
06840 MSIA DEFM 
06850 DEFB 
06860 DEFB 
06870 MS2B DEFB 
06880 DEFB 
06890 DEFM 
06900 DEFB 
06910 DEFB 
06920 DEFB 
06930 DEFB 
06940 NAME1 DEFS 
06950 MS3A DEFB 
06960 DEFB 
06970 DEFM 
O CLOSE FILE. ' 
06980 DEFB 
06990 DEFB 
07000 DEFB 
07010 DEFB 
07020 ORG 
07030 SAV4 LD 
07040 LD 
07050 CALL 
07060 LD 
07070 LD 
07080 CALL 
07090 CALL 
07100 CALL 
07110 CALL 
07120 CALL 
07130 LD 


(AUTSAV) ,A 
Ty ,MS4A 
SEND3Z 

13 

10 


;AUTO SAVE POINTER 

;HAS BEEN SAVED MESSAGE 
;TRANSMIT VIA SEND3 
;CARRIAGE RETURN 

7LINE FEED 


‘YOUR FILE HAS BEEN AUTOMATICALLY SAVED ON 


13 
10 


‘TO TEST IT TRY 


10 


3CARRIAGE RETURN 
3;LINE FEED 
THE SEND (FILE NAME) COMMA 


3CARRIAGE RETURN 

;LINE FEED 

3SEND 3 ONLY REQUIRES TWO 
3128 DELIMITERS 
3<READY> MESSAGE 

;BYTES TO MOVE 

7MOVE IT INTO 'DE* 
3;RETURN WHENCE U CAME +1 
sCARRIAGE RETURN 

7LINE FEED 

;MESSAGE 

sCARRIAGE RETURN 

7LINE FEED 

373 DELIMITERS 

7ARE NEEDED 

;BY THE MULTI-FRAME 
;XMIT LO~MEM SUBROUTINE 
;DISK DRIVE NUMBER USED 
3USED. CHANGE TO SUIT 
7YOUR FANCY. 

7CARRIAGE RETURN 

;LINE FEED 


‘FILE NAME EXTANT =~ TRY ANOTHER ONE, * 


13 
10 
128 
128 
13 
73 
10 


"SEND DISK FILE 


128 

OCA40H 
A,195 
(400CH) ,A 
MOVDN 

HL, (BEFORE) 
(SOFAR+1) ,HL 
SETFCB 
OPEN1 

4448H 

DUMP 

CLOSE 
SP,29758 


;CARRIAGE RETURN 

;LINE FEED 

;DELIMITER 

;DELIMITER 

313 BYTE FILE NAME STASH 
;CARRIAGE RETURN 

;LINE FEED 

& WHEN DONE A DISCONNECT T 


;CARRIAGE RETURN 

;LINE FEED 

;DELIMITER 

;DELIMITER 

;SAVE VERY LONG FILES 
;AFTER A ‘WAIT' RNR HAS 
3HAS BEEN TRANSMITTED, 
7RESTORE DOS TO LO=MEM 
sEND HI-MEM INFO FIELDS 
;LOAD INTO SOFAR 

;SET FILE CTRL BLOCK 
;OPEN AN EXISTING FILE 
sPOSITION TO END OF FILE 
7AND DUMP DATA TO DISK 
;CLOSE DISK FILE 

;RESET STACK POINTER 


LLLS 


EY EA CA EE 
EAE EA EE 


ES Eee ee 


SETUP 
CLRHY 
IY ,MS6A 
SEND3Z 
13 

10 


"<RNR CLEARED = 


13 

10 

128 

128 
(NUMSEC) ,A 
DE,0 

B,47 

B 


Z,DON2 
C,DON1 
D 


vy1 

D 

A,D 
(SEGNUM) ,A 
A 


E,A 
A 


B,47 

A,B 

E 

NZ, DON3 
B,A 

A, (NUMSEC) 
B 


A 
(NUMSEC) ,A 
A,1 
(SECTOR) ,A 
HL, 12032 
MUL3 

0 

0 


‘INPUT BEGINNING MEM ADDRESS 


0 

OCBOOH 
CLRHY 
A,195 
(400CH) ,A 
MOVDH 
OPEN1 
ANYMOR 
READ 
CLOSE 
SP,29758 
SETUP 
CLRLO 
MOVHI2 
CALFRM 
CLRHY 
PACK 


zINITIALIZE PGM POINTERS 
3;CLEAR HI-MEM 

;WAIT/RNR CLEARED MSG 
;CONTINUE SENDING MESSAGE 
;CARRIAGE RETURN 

;LINE FEED 

CONTINUE SENDING>' 
;CARRIAGE RETURN 

;LINE FEED 

;DELIMITER 

;DELIMITER 

;LOAD # OF' DISK SECTORS 
3ZERO OUT COUNTER 

3;MAX SECTORS IN HI-MEM 
;SUBTRACT FROM TOTAL 

32 FLAG SET = ALL DONE 

3C FLAG SET = ALL DONE 
SEGMENT COUNTER 

3TRY AGAIN 

; INCREMENT SEGMENT COUNT 
;SWAP I'JTO 'A' 

;SAVE IN NUMBER SEGMENTS 
;DECREMENT SEGMENT COUNT 
3;SWAP INTO 'E' 

?ZERO OUT 'A' 

;MAX RECORDS PER SEGMENT 
3;ADD 'EM UP AGAIN 

sMINUS ONE FROM COUIJTER 
}NZ THEN DO IT AGAIN 
3;THEN SWAP INTO 'B' 
;NUMBER SECTORS REMAINING 
;SUBTRACT COUNTER 

;MINUS ONE 

;SAVE IT IN NUMBER SECTOR 
sONLY 1 

;SAVE IT IN SECTOR 

;MAX SEGMENT LENGTH 

;AND GO SET LBYTCS TO MAX 
;NUMBER SECTORS STASH 
;SINGLE SECTOR STASH 


;DELIMITER 

;ONLY USED FOR SENDING 
;DISK FILES GREATER THAN 
312K BYTES = 65K MAXIMUM, 
;USED AFTER 1ST 12K SENT. 
;RESTORE DOS TO LO~MEM 
;OPEN AN EXISTING FILE 
;CALCULATE MORE TO SEND 
}READ FROM DISK TO HI~MEM 
;CLOSE DISK FILE 

;RESET STACK POINTER 

; INITIALIZE PGM POINTERS 
;CLEAR OUT DOS LO-MEM 
;MOVE HI-MEM TO LO-MEM 
;CALCULATE FRAMES TO SEND 
;CLEAR HI-MEM 

;SEND MULTI-FRAME PACKS 


(53248 NOMINA 


07720 ANYMOR 


07730 
07740 
07750 
07760 
07770 
07780 
07790 
07800 
07810 
07820 
07830 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 


iw) 


DQAYPYPRPHOAPGANHHPHE 
ee 


APUPUUVUUHPUUUUPUNVyUUUUY 


FE! 


He 


Ee 
EA 


in 


DQAYQARHrEHEE 


A, (SECTOR) 
B,47 

A,B 
(SECTOR) ,A 
A, (SEGNUM) 
1 


Z,MUL4 
HL, 12032 
MUL3 

DE ,FCB 

A, (SECTOR) 
B,0 

C,A 

444211 


DE, FCB 

A, (SECTOR) 
B,0 

C,A 

4442H 

A, (NUMSEC) 
MULO 


#SECTOR REMAINING 

:MAX SECTORS FOR MEM 
;ADD 'EM UP 

;AND SAVE IN SECTOR 
;NUMBER OF SEGMENTS 
;LAST ONE ? 

;THEN CALCULATE LENGTH 
;MAX BYTES PER SEGMENT 
3SET LBYTES LENGTH 

;FILE CTRL BLOCK ADDRESS 
;NUMBER OF DISK SECTORS 
3256 BYTES PER RECORD 

~ S1JAP SECTORS INTO ‘Cc’ 
;POSITION TO DISK SECTOR 
;RETURN WHENCE U CAME +1 
;ONLY LAST FILE SEGMENT 
;LAST FILE SECTOR READ 
3256 BYTES PER RECORD 

3} SWAP SECTORS INTO 'C! 
;POSITION TO DISK SECTOR 
;NUMBER SECTORS REMAINING 
;CALCULATE BYTES TO READ 
;RETURN WHENCE U CAME +1 


meme 


END OF DISK I/O FOR AUTO MODE 


- Figure 2 


HELP Message Transmitted in Auto Mode 


MJTHIS IS W4UCH CHAUTAUQUA LAKE, NY IN AUTOMATIC DISK I/O MODEMJ 
THERE ARE FOUR FUNDAMENTAL INSTRUCTIONS THAT THIS MODE WILLMJ 
AUTOMATICALLY RECOGNIZE AFTER YOU ARE CONNECTED. THEY ARE: MJ 


1. A SINGLE INFO PACKET CONSISTING OF HELP TO CALL THIS 
PRESENT SUBROUTINE. 
2. A SINGLE INFO PACKET CONSISTING OF LIST TO CALL THE 


3. A SINGI 
DISK PROGRAM, AN 
LE INFO P 
DISK PROGRAM, AN 
THE PROGRAM WI 


4. A SINGI 


DIRECTORY SUBROUTINE. 
LE INFO PACKET CONSISTING OF SEND «= SPACE = NAME OF MJ 
D CARRIAGE RETURN TO 
ACKET CONSISTING OF SAVE = SPACE «= NAME OF MJ 
D CARRIAGE RETURN TO WRITE DISK PROGRAM. 
, THEN OPEN A DISK FILE AND RESPOND WITH THEMJ 


GO AHEAD AND SEND THE FILE. 


READ THE 


IF THE 


MJ 
MJ 
MJ 
MJ 


DISK 


DISK PROGRAM. MJ 


MJ 


MJ 


SO BYTES IN LENGTH, THE PROGRAM MJ 


CAPACITY IS ABOUT 170K BYTES. 


SINGLE FRAME PACKETS MAY BE UP TO 2000 BYTES IN LENGTH AND MJ 
NFO FIELDS OF UP TO 256BYTES. 
LD TOTAL PACKET LENGTH TO 2000BYTES OR LESS. 


7 FRAME 
JUST HO 


WHEN YOU HAVE 
DISK, SEND A 
SAVING YOUR DATA ON DISK AND 


TELL YO 
it, 


SUGGEST YO 
FILE NAMES MAY 
BEGIN WITH AN Al 
LES SHOU 


NHoaQw > 


AND 
OBJECT CODE FI 
SOURCE CODE FI 
BASIC PROGRAM FILES SHOULD 
PLAIN VANILLA ASCII FI 
ELECTRIC PENCI 


PACKET 


"MUST' 


THERE 


ARE 'NO' 


WHEN 


RECEIVE THE MESSAGE 


IN TH 


IS CASE, 


AND TRY AGAIN. 


EMINDER: 


AUTO MODE 


S MAY HAVE I 


DISCONNECT. 


U THAT THE DATA WAS 
GO AHEAD AND DO SO WITI 
COMMAND . 


U USE THE FOLLOWING 


L FILES SHOU 


PROT 
INTENTIONAL. YOU MAY 
ATTEMPTING TO TO WRITE TO AN EXISTING 
"FILE ALREADY EXTANT « TRY ANOTHER ONE.' MJ 
JUST GIVE THE FILE YOU WISH SAVED ANOTHER NAME 


MESSAGE, ‘SEND FILE.' 

FILE IS LONGER THAN 10K OR 

WILL SEND A 'WAIT' RNR WHILE IT SAVES 
WHEN SAVED, WILL SEND AN AUTOMATIC 'C 


BE UP TO 8 


SAVED. 


LD END WITH A NUMERAL 
LES SHOULD END WITH A NUMERAL 2. 


FINISHED SENDING THE DATA YOU WISH SAVED ON MJ 
THIS TELLS THE PROGRAM TO FINISH Md 
"CLOSE' THE FILE. WHEN THIS ISMJ 
DONE, THE PROGRAM WILL SEND AN AUTOMATIC CONNECT REQUEST MJ 
AND UPON RECEIVING THE CONNECT REQUEST ACKNOWLEDGE WILL 
SHOULD YOU WISH TO CHECK Md 
H THE SEND = SPACE = FILE NAME = MJ 


CONVENTION FOR FILE NAMES: 
UPPERCASE ALPHANUMERIC CHARACTERSMJ 
LPHABETIC CHARACTER. 
1 OR /CMD. 


END WITH A NUMERAL 4. 


LATER. 


LES/MESSAGES SHOUL 
LD END WITH /PCL. 


ECTIED FILES ON THE DISKFILE DISK. T 
"READ' ANY EXISTING FILE ON THE DISK. 
FILE YOU WILL 


D BE ALL CAP 


SHOULD YOU INADVERTENTLY BUGGER-UP SENDING A GIVEN FILE, FIRSTMd 
THE FILE BY SENDING A DISCONNECT. THE PROGRAM WILL AUTO-MJ 
1Y RECONNECT TO YOU. NOW RENAME THE FILE AND TRY AGAIN.MJ 
FORGET THE DISCONNECT TO CLOSE THE FILE. 
UP THE PROGRAM FOR YOUR FELLOW AMATEURS WHO MAY WISH TOMI 


IF SO, 


CAPITAL LETTERS ARE REQUIRED FOR ALL COMMANDS AND 
NAMES AS SOME USERS MAY NOT HAVE THE LOWERCASE CAPABILITYMJ 
AND WOULD NOT BE ABLE TO READ THE FILE NAMES. 


RR WHEN 


THE DATA ON DISK, ANDMJ 
LEAR WAIT! 
READY FOR YOU TO RESUME SENDING THE FILE. THE MODEL 1 TRS80MJ 
DISK CAPACITY IS ABOUT 85K BYTES AND THE MODEL 3TRS80 DISKMJ 


MJ 


Md 
MJ 


MJ 


MJ 


MJ 
Mu 


U 


ITALS. 


HIS IS 


IT MAY MJ 
Md 


MJ 


MJ<READYSMJ 


The capital M = ASCII Bcarriage return and the capital 


J= 


ASCII 10 line feed. 


3.118 


